home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / tips and tricks (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  84 lines
  1. 5 sys65418:a=peek(2):ifa<5ora>14 then poke2,5
  2. 10 poke53280, 0:poke53281, 0:print"[147][142]";
  3. 11 print"[158]loadstarpresents:"
  4. 12 print"[159][176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174]"
  5. 13 print"{$7d}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[159]{$7d}"
  6. 14 print"{$7d}{$7d}[159]{$7d}"
  7. 15 print"{$7d}[155]{$7d}[159]{$7d}"
  8. 16 print"{$7d}[155]{$7d}{$7d}{$7d}[183][183]{$7d}{$7d}[183][183][183][159]{$7d}"
  9. 17 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}[173]{$60}{$60}[174][159]{$7d}"
  10. 18 print"{$7d}[152]{$7d}{$7d}{$7d}[175][175]{$7d}[175][175][175]{$7d}[159]{$7d}"
  11. 19 print"{$7d}[151]{$7d}[160][159]{$7d}"
  12. 20 print"{$7d}[151]{$7d}[159]{$7d}"
  13. 21 print"{$7d}[151]{$7d}[158]and[159]{$7d}"
  14. 22 print"{$7d}{$7d}"
  15. 23 print"{$7d}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[159]{$7d}"
  16. 24 print"{$7d}{$7d}{$7d}[159]{$7d}"
  17. 25 print"{$7d}[155]{$7d}{$7d}N[159]{$7d}"
  18. 26 print"{$7d}[155]{$7d}{$7d}[183][183]{$7d}{$7d}[183][183]{$7d}N{$7d}[183][183][183][159]{$7d}"
  19. 27 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}{$7d}M[173]{$60}{$60}[174][159]{$7d}"
  20. 28 print"{$7d}[152]{$7d}{$7d}{$7d}{$7d}[175][175]{$7d}M[175][175][175]{$7d}[159]{$7d}"
  21. 29 print"{$7d}{$7d}"
  22. 30 print"[221]compiledbylouisf.sander [159][221]"
  23. 31 print"[173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189]"
  24. 32 print"[158]pressspacetocontinue"
  25. 40 ifpeek(203)<>60then40
  26. 50 :
  27. 100 dim na$(50),fi$(50):tp=1
  28. 110 read na$(tp),fi$(tp)
  29. 120 ifna$(tp)="end"thentp=tp-1:goto200
  30. 130 tp=tp+1:goto110
  31. 140 :
  32. 200 print"[147][158]            tips and tricks"
  33. 205 print"      [129]compiled by louis f. sander"
  34. 210 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  35. 215 print" [221]                                    [221]":rem  na$(1)=""+na$(1)
  36. 220 fora=1totp
  37. 230 print" [221]     [154]"na$(a)"[146]     [221]"
  38. 240 next:rem  na$(1)=right$(na$(1),26)
  39. 245 print" [221]                                    [221]"
  40. 250 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  41. 260 :
  42. 300 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  43. 310 print" [221]   [154]use the cursor keys to move the  [221]"
  44. 320 print" [221] highlight [154]up and down.             [221]"
  45. 325 print" [221]                                    [221]"
  46. 330 print" [221]   [154]press return to select.          [221]"
  47. 340 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":ro=peek(2):lr=ro:goto500
  48. 400 poke198,.:poke2,ro
  49. 410 geta$:ifa$=""then410
  50. 420 lr=ro:ok=.
  51. 430 ifa$=""then ro=ro+1:ok=-1:ifro=tp+5thenro=5
  52. 440 ifa$="[145]"then ro=ro-1:ok=-1:ifro=4thenro=tp+4
  53. 450 ifa$=chr$(13)then 600
  54. 460 if ro=tp-1+4 then 430
  55. 470 if not(ok) then410
  56. 480 :
  57. 500 poke783,peek(783)and254:poke781,lr:poke782,7:sys65520
  58. 510 print"[154]"na$(lr-4)
  59. 520 poke783,peek(783)and254:poke781,ro:poke782,7:sys65520
  60. 530 print""na$(ro-4)
  61. 540 goto400
  62. 550 :
  63. 600 me$="loading "+fi$(ro-4)
  64. 610 ta=20-len(me$)/2
  65. 620 print"[147]"tab(ta)me$
  66. 630 :
  67. 640 print"[144]load"chr$(34)fi$(ro-4)chr$(34)",8"
  68. 650 print"run"
  69. 660 poke631,13:poke632,13:poke198,2:end
  70. 999 :
  71. 1000 rem  "center----->!!<-----retnec"
  72. 1005 data "           jaws           ",                       jaws
  73. 1010 data "      european siren      ",                  european siren
  74. 1020 data "      base converter      ",                  base converter
  75. 1030 data "   dec <-> hex converter  ",                 dec/hex converter
  76. 1040 data "   start address finder   ",               start address finder
  77. 1050 data "     disk error reader    ",                 disk error reader
  78. 1060 data "       f7 apostrophe      ",                   f7 apostrophe
  79. 1070 data "       color advance      ",                   color advance
  80. 1900 data "                          ",                    blank space
  81. 1950 data "    return to loadstar    ",                   hello connect
  82. 1998 :
  83. 1999 data "end",end
  84.